100 '        programma 15             BLOEMEN
110 CLEAR ,19202 : SCREEN 105,,3,3
120 DEF FNX(X)=INT(1.55*(50+X)+.5)
130 CLS: KEY OFF
140 U=160 : V=160 : H=.5 : RD=4*ATN(1)/180
150 N=4 : C=.25
160 FOR K=30 TO 80 STEP 10
170 		X1=U+K : Y1=V
180 		FOR W=3 TO 360 STEP 3
190 			P=W*RD: R=K*(1+C*ABS(SIN(N*P)))
200 			X2=INT(U+R*COS(P)+H)
210 			Y2=INT(V-R*SIN(P)+H)
220 			LINE (FNX(X1),Y1)-(FNX(X2),Y2),1
230 			X1=X2 : Y1=Y2
240 		NEXT W
250 NEXT K	
260 R=30 : P1=(180/N)*RD
270 FOR J=1 TO N
280 		P=J*P1
290 		X1=INT(U+R*COS(P)+H)
300 		Y1=INT(V-R*SIN(P)+H)
310 		X2=INT(U+R*COS(P+4*ATN(1))+H)
320 		Y2=INT(V-R*SIN(P+4*ATN(1))+H)
330 		LINE (FNX(X1),Y1)-(FNX(X2),Y2),1
340 NEXT J
350 A$=INKEY$: IF A$="" THEN 350
360 CLS: KEY ON: END

Dim U As Integer = 160, V As Integer = 160, H As Single = 0.5
Dim RD As Single = 4 * Math.Atan(1) / 180
Dim N As Integer = 4, C As Single = 0.25
For K As Integer = 30 To 80 Step 10
	Dim X1 As Integer = U + K, Y1 As Integer = V
	For W As Integer = 3 To 360 Step 3
		Dim P As Single = W * RD
		Dim R As Single = K * (1 + C * Math.Abs(Math.Sin(N * P)))
		Dim X2 As Integer = Int(U + R * Math.Cos(P) + H)
		Dim Y2 As Integer = Int(V - R * Math.Sin(P) + H)
		e.Graphics.DrawLine(Pens.Black, X1, Y1, X2, Y2)
		X1 = X2 : Y1 = Y2
	Next
Next
Dim R1 As Integer = 30, P1 As Single = (180 / N) * RD
For J As Integer = 1 To N
	Dim P As Single = J * P1
	Dim X1 As Integer = Int(U + R1 * Math.Cos(P) + H)
	Dim Y1 As Integer = Int(V - R1 * Math.Sin(P) + H)
	Dim X2 As Integer = Int(U + R1 * Math.Cos(P + 4 * Math.Atan(1)) + H)
	Dim Y2 As Integer = Int(V - R1 * Math.Sin(P + 4 * Math.Atan(1)) + H)
	e.Graphics.DrawLine(Pens.Black, X1, Y1, X2, Y2)
Next

